Imports System.Data.OracleClient

Public Class ttbcccll
  Inherits tticccll


  '-----------------------------------------------------------------------


  Public Function pvvd_rtrv_form_ctrl() As OracleDataReader

    Dim lvst_sqlx_strn As String

    lvst_sqlx_strn = _
      "select TFCC_ctrl_srno        " & _
            ",TFCC_form_idnt        " & _
            ",TFCC_ctrl_idnt        " & _
            ",TFCC_prnt_ctrl_idnt   " & _
      "from  TRDX_FORM_CHLD_CTRL    " & _
      "where TFCC_form_idnt      = '" & pvst_form_idnt & "' " & _
      "order by TFCC_ctrl_srno      "

    'tvvd_exec_qury _
    '  (lvst_sqlx_strn)

    mCmdData = New OracleCommand(lvst_sqlx_strn, con)
    mDrData = mCmdData.ExecuteReader

    Return mDrData

  End Function


  '-----------------------------------------------------------------------


End Class
